home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 4 / United Public Domain Gold 4.iso / fredfish / ff.0013.dms / ff.0013.adf / colorcircles.bas < prev    next >
BASIC Source File  |  1986-02-21  |  2KB  |  68 lines
  1. 10    screen 0,4,0
  2. 99    rgb 0,15,15,15
  3. 100   rgb 1,0,0,0
  4. 101   rgb 2,0,0,1
  5. 102   rgb 3,0,0,2
  6. 103   rgb 3,0,0,2
  7. 104   rgb 4,0,0,3
  8. 105   rgb 5,0,0,4
  9. 106   rgb 6,0,0,5
  10. 107   rgb 7,0,0,6
  11. 108   rgb 8,0,0,7
  12. 109   rgb 9,0,0,8
  13. 110   rgb 10,0,0,9
  14. 111   rgb 11,0,0,10
  15. 112   rgb 12,0,0,11
  16. 113   rgb 13,0,0,12
  17. 114   rgb 14,0,0,13
  18. 115   rgb 15,0,0,14
  19. 1000  scnclr: goto 2000
  20. 1001  pena 0
  21. 1002  rem drawmode 2
  22. 1010  ask mouse h%,v%,b%
  23. 1020  if b%= 0 then 1010
  24. 1030  ? at (0,0) h%,v%
  25. 1040  goto 1010
  26. 2000  pena 1:circle (25,25),24:paint (25,25)
  27. 2001  pena 2:circle (75,25),24:paint (75,25)
  28. 2002  pena 3:circle (125,25),24:paint (125,25)
  29. 2003  pena 4:circle (175,25),24:paint (175,25)
  30. 2004  pena 5:circle (225,25),24:paint (225,25)
  31. 2005  pena 6:circle (25,75),24:paint(25,75)
  32. 2006  pena 7:circle (75,75),24:paint(75,75)
  33. 2007  pena 8:circle (125,75),24:paint(125,75)
  34. 2008  pena 9:circle (175,75),24:paint(175,75)
  35. 2009  pena 10:circle (225,75),24:paint(225,75)
  36. 2010  pena 11:circle(25,125),24:paint(25,125)
  37. 2011  pena 12:circle(75,125),24:paint(75,125)
  38. 2012  pena 13:circle(125,125),24:paint(125,125)
  39. 2013  pena 14:circle(175,125),24:paint(175,125)
  40. 2014  pena 15:circle(225,125),24:paint(225,125)
  41. 2500  window 1,0,170,320,30,"Red and Green levels"
  42. 2510  cmd 1
  43. 3000  for red%=0 to 15
  44. 3010  for green%=0 to 15
  45. 3011  rgb 1,red%,green%,1
  46. 3012  rgb 2,red%,green%,2
  47. 3013  rgb 3,red%,green%,3
  48. 3014  rgb 4,red%,green%,4
  49. 3015  rgb 5,red%,green%,5
  50. 3016  rgb 6,red%,green%,6
  51. 3017  rgb 7,red%,green%,7
  52. 3018  rgb 8,red%,green%,8
  53. 3019  rgb 9,red%,green%,9
  54. 3020  rgb 10,red%,green%,10
  55. 3021  rgb 11,red%,green%,11
  56. 3022  rgb 12,red%,green%,12
  57. 3023  rgb 13,red%,green%,13
  58. 3024  rgb 14,red%,green%,14
  59. 3025  rgb 15,red%,green%,15
  60. 3030  ? red%;spc(5);green%
  61. 3040  for timer%=0 to 5000:next timer%
  62. 3050  next green%
  63. 3060  next red%
  64. 4000  cmd 0
  65. 4010  close #1
  66. 4500  goto 99
  67. 5000  getkey A$
  68.